: FOR ( start--) COMPILE LIT 0 , COMPILE SWAP [COMPILE] DO ; IMMEDIATE
: NEXT ( --) COMPILE LIT -1 , [COMPILE] +LOOP ; IMMEDIATE